home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 19 / CU Amiga Magazine's Super CD-ROM 19 (1998)(EMAP Images)(GB)[!][issue 1998-02].iso / CUCD / Readers / Gui4Cli / Tools / Icon.gc < prev    next >
Text File  |  1997-12-02  |  533b  |  34 lines
  1. G4C - Shows given icon
  2.  
  3. WinBig -1 -1 200 100 IconView
  4. WinType 01000001
  5. WinBackground SOLID 3 0
  6.  
  7. BOX 0 0 0 0 out button
  8.  
  9. xOnLoad icon
  10. guiopen icon.gc $icon
  11.  
  12. xOnReload icon
  13. delay 20
  14. extract icon file name
  15. setwintitle icon.gc '$name                        '
  16. ChangeIcon icon.gc 1 -1 -1 \"$icon\"
  17.  
  18. xOnOpen icon
  19. extract icon file name
  20. setwintitle icon.gc '$name                        '
  21. ChangeIcon icon.gc 1 -1 -1 \"$icon\"
  22.  
  23. xOnClose
  24. guiquit icon.gc
  25.  
  26. xOnRMB
  27. guiquit icon.gc
  28.  
  29. xOnInactive
  30. guiquit icon.gc
  31.  
  32. xIcon 10 10 "guis:gui4cli"
  33. GadID 1
  34.